home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / lblcs.arc / MSC_GETV.ASM < prev   
Encoding:
Assembly Source File  |  1985-04-06  |  740 b   |  49 lines
  1.  
  2. ;---------------------------------------------------------------
  3. ;
  4. ; name        msc_getversion    - get library version
  5. ;
  6. ; synopsis    int vers;
  7. ;        vers = msc_getversion();
  8. ;
  9. ;        printf("\nlibrary version:  %2d . %02d",vers>>8,vers&255);
  10. ;
  11. ; description:    returns library version which can be printed as in
  12. ;        the synopsis above.
  13. ;
  14. ;--------------------------------------------------------------
  15.  
  16.     include    dos.mac
  17.  
  18. video    equ    10h        ; video interrupt number
  19.  
  20.  
  21.     IF    LPROG
  22. X    EQU    6        ;OFFSET OF ARGUMENTS
  23.     ELSE
  24. X    EQU    4        ;OFFSET OF ARGUMENTS
  25.     ENDIF
  26.  
  27.     PSEG
  28.  
  29.  
  30.     PUBLIC    msc_getversion
  31.  
  32.  
  33.     IF    LPROG
  34. msc_getversion    PROC    FAR
  35.     ELSE
  36. msc_getversion    PROC    NEAR
  37.     ENDIF
  38.     mov    ax,010h
  39.     ret
  40.  
  41.  
  42. msc_getversion    ENDP
  43.  
  44.  
  45.     endps
  46.     end
  47.  
  48.  
  49.